home *** CD-ROM | disk | FTP | other *** search
- tell application "QuickTime Player"
-
- activate
- if not (exists movie 1) then return "no movie"
- stop every movie
- tell movie 1
- set this_track to current chapter track
- if this_track is not {} then
- set this_name to the name of this_track
- set this_chapter to the current chapter
- set the chapter_name to the name of this_chapter
- set the chapter_index to the index of this_chapter
- set the chapter_duration to the duration of this_chapter
- set the chapter_start to the time of this_chapter
- set the message_text to "Current Chapter Info" & return & return
- set the message_text to the message_text & "Chapter Track Name: " & this_name & return
- set the message_text to the message_text & "Current Chapter Name: " & chapter_name & return
- set the message_text to the message_text & "Current Chapter Index: " & chapter_index & return
- set the message_text to the message_text & "Current Chapter Start: " & (chapter_start as string) & return
- set the message_text to the message_text & "Current Chapter Duration: " & (chapter_duration as string)
- else
- set the message_text to "The front movie has no chapter track."
- end if
- display dialog message_text buttons {"OK"} default button 1
- end tell
- end tell